home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / pipeline / pipedream / Documents / Custom / CF_sheets / c_DateFns next >
Encoding:
Text File  |  1991-10-09  |  1.6 KB  |  64 lines
  1. %OP%DP0
  2. %OP%FX
  3. %OP%FY
  4. %OP%FS
  5. %OP%NDmonth_table,b1b13
  6. %OP%NDmon_loop,9
  7. %OP%NDdigit,9
  8. %OP%NDweekdays,c1c8
  9. %OP%NDdaytext,c1
  10. %OP%NDsuffix,"th "
  11. %OP%NDmonthtext,b2
  12. %OP%NDyeartext,2004
  13. %OP%NDdate_text,"Sunday the 29th of February, 2004"
  14. %OP%WC110,1416,716,1096,0,4,0,0
  15. %OP%VS3.81 Test (Oct  8 1991), Colton Software - Development, R0123 4567 8901 2345
  16. %CO:A,90,0%%V%%L%function("text_to_date","etext:reference")
  17. %V%%L%trim(@etext)
  18. %V%%L%find(" ",a2,1)
  19. %V%%L%find(" ",a2,a3+1)
  20. %V%%L%value(left(a2,a3-1))
  21. %V%%L%mid(a2,a3+1,a4-a3-1)
  22. %V%%L%if(a4+2<length(a2),value(right(a2,4)),value(right(a2,2))+1900)
  23. %V%%L%set_name("month_table",b1b12)
  24. %V%%L%for("mon_loop",1,12)
  25. %V%%L%    if(length(a6)>9,result("Bad Month"),0)
  26. %V%%L%    if(length(a6)>length(index(month_table,1,mon_loop)),goto(a13),0)
  27. %V%%L%    if(a6=left(index(month_table,1,mon_loop),length(a6)), result(date(a7,mon_loop,a5)), 0)
  28. %V%%L%next
  29. %V%%L%result("Bad Month")
  30.  
  31.  
  32. %V%%L%function("expand_date","when")
  33. %V%%L%if(type(@when)<>"date",result("Bad Date"),)
  34. %V%%L%year(@when)
  35. %V%%L%set_name("month_table",b1b13)
  36. %V%%L%set_name("weekdays",c1c8)
  37. %V%%L%mod(day(@when),10)
  38. %V%%L%if(a22=1,set_name("suffix","st "),set_name("suffix","th "))
  39. %V%%L%if(a22=2,set_name("suffix","nd "),)
  40. %V%%L%if(a22=3,set_name("suffix","rd "),)
  41. %V%%L%index(month_table,1,month(@when))
  42. %V%%L%index(weekdays,1,weekday(@when))
  43. %V%%L%join(a27," the ",string(day(@when),0),suffix,"of ",a26,", ",string(a19,0))
  44. %V%%L%result(a28)
  45. %CO:B,12,24%January
  46. February
  47. March
  48. April
  49. May
  50. June
  51. July
  52. August
  53. September
  54. October
  55. November
  56. December
  57. %CO:C,12,12%Sunday
  58. Monday
  59.  Tuesday
  60. Wednesday
  61. Thursday
  62. Friday
  63. Saturday
  64.